<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>13</cardCount>
<cardID>2957</cardID>
<listID>10714</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>On OpenStackhide menubarunlock screenif the version < 2.0 thenanswer "Sorry! You must have HyperCard 2.0 or later!"domenu "Quit HyperCard"end ifstart using stack "spanish sounds"demostop using stack "spanish sounds"lock screenpop cardend openstackon demoshow cd fld "HyperGlot"fplay "spdemo1"fplay "demo2"wait until fsound() = "done"lock screenhide cd fld "HyperGlot"unlock screen with dissolveif the mouseClick is true then exit demofplay "demo3"wait until fsound() = "done"if the mouseClick is true then exit demowait until fsound() = "done"fplay "demo4"if the mouseClick is true then exit demowait until fsound() = "done"-- wait until the sound = "done"if the mouseClick is true then exit democlick at the loc of bg fld "english setting"wait 1 secondclick at the loc of bg fld "spanish setting"if the mouseClick is true then exit demogo nextif the mouseClick is true then exit demowait 1 secondclick at the loc of bg fld "english dialogue"wait 1 secondif the mouseClick is true then exit democlick at the loc of bg fld "spanish dialogue"if the mouseClick is true then exit demogo next-- listening comprehensionfplay "demo5"wait until fsound() = "done"-- wait until the sound = "done"if the mouseClick is true then exit demogo next-- closer lookfplay "demo6"-- wait until the sound = "done"repeat with x = 1 to 10put "ls" & x into vNamefplay vNamewait until fsound() = "done"if the mouseClick is true then exit demoend repeatclick at the loc of bg btn "hide/see spanish"wait 1 secondif the mouseClick is true then exit democlick at the loc of bg btn "hide/see spanish"wait 1 secondif the mouseClick is true then exit democlick at the loc of bg btn "hide/see english"wait 1 secondif the mouseClick is true then exit demowait 1 secondclick at the loc of bg btn "hide/see english"wait 1 secondif the mouseClick is true then exit democlick at the loc of bg btn "notes"wait 2 secondsgo nextfplay "demo7"wait until fsound() = "done"-- wait until the sound = "done"go nextwait 1 secondif the mouseClick is true then exit demogo nextwait 1 secondif the mouseClick is true then exit demogo nextfplay "demo8"wait until fsound() = "done"if the mouseClick is true then exit demogo nextwait 1 secondif the mouseClick is true then exit demogo nextwait 1 secondif the mouseClick is true then exit demogo nextwait 1 secondgo nextclick at the loc of cd button "start test"fplay "demo9"click at the loc of cd fld "Your Answer"type "Perdón, señora."wait until fsound() = "done"go nextfplay "demo10"wait until fsound() = "done"fplay "demo11"wait until fsound() = "done"end demoend demo-- ScriptEdit™ Prefs:Monaco,9,47,24,472,600,43,43,0</script>
